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000000 
000000 



TITLE TSRT 
ENABL LC 
DSABL GEL 



— Resident portion of real-time code 



This module contains the resident portion of the TSX-Plus real-time 
processing code. 

Copyright (c) 1980, 1981, 1982, 1983. 
S&H Computer Systems, Inc. 
Nashville, Tennessee 
All rights reserved. 

. CSECT TSRT 
TSRT: 

Global definitions 

. GLOBL RTINT 

Global references 

. GLOBL INTEW, FORK, VF*DIR, VC*FLG, GETRTQ, VC*JOB 

. GLOBL CQ*JOB, VC^SVEC, CQ*RO, VC*RTN, CQ*RTN 

. GLOBL CQ*PA5, VCifPR I , CQ*PR I , QCOMPL, CQ*RWS 

. GLOBL CURVC, LCXPAR, KPAR6, UPARO, CUPARO, UPDRO, CUPDRO 

. GLOBL FPUUSE, UPMODE, PSW, UMSPSV, CPLEHT, UMODE, UPMODE 

. GLOBL LSPND, FORCEX, CFLAG, EMTENT, CQ*R1, MAXPRI. VPRIHI, S*RT 

. GLOBL LBSPRI, S*TWFN, FP*RT, KPAR5, MAPPAR 

. GLOBL CQ*CP, CP*RT, CP^SSTD 



000000 000000 
000002 000000 



Data areas 

RISPSV; , WORD 
VCHOLD: . WORD 








;Holds SP during direct interrupt service call 

; Used to hold address of vec ctrl blk during . inten 
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RT 


12 
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010267 


177766 
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004567 


0000000 




18 


000022 


000000 






19 


000024 


016704 


177752 




20 


000030 


004567 


OOOOOOG 




21 

22 
23 
24 
25 


000034 


OOOOOOG 


















26 












27 
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29 












30 


000036 


132764 


0000000 


OOOOOOG 


31 


000044 
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32 
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36 












37 


000046 


004767 


OOOOOOG 




38 


000052 


116461 


OOOOOOG 


OOOOOOG 


39 


000060 


005000 






40 


000062 


156400 


OOOOOOG 




41 


000066 


006300 






42 


000070 


010061 


OOOOOOG 




43 


000074 


016461 


OOOOOOG 


OOOOOOG 


44 


000102 


013761 


OOOOOOG 


OOOOOOG 


45 


000110 


116405 


OOOOOOG 




46 


000114 


001014 






47 


000116 


112761 


OOOOOOG 


OOOOOOG 


48 


000124 


112761 


OOOOOOG 


OOOOOOG 


49 


000132 


116100 


OOOOOOG 




50 


000136 


116061 


OOOOOOG 


OOOOOOG 


51 


000144 


000417 






52 


000146 


112761 


OOOOOOG 


OOOOOOG 3$ 


53 


000154 


112761 


OOOOOOG 


OOOOOOG 


54 


000162 


066705 


OOOOOOG 




55 


000166 


020527 


OOOOOOG 




56 


000172 


101402 






57 


000174 


012705 


OOOOOOG 







. SBTTL RTINT 



Real-time interrupt entry point 



SUB 


#4, R2 


MOV 


R2, VCHOLD 


MOV 


(SP)+, R2 



RTINT is the entry point for all real-time interrupts. 
The actual interrupt vector sent the interrupt to the vector control 
block for the interrupt which had the following instruction stored 
as its first word: C v»SR R2> RTINT 1. Thus on entry to RTINT, R2 
points to byte 4 of the vector control block. 

Save address of the vector control block. 

; GET ADDRESS OF START OF CONTROL BLOCK 
i SAVE ADDRESS ACROSS . INTEN 
; RESTORE R2 

Now do a . INTEN and . FORK to get out of interrupt mode. 

; STANDARD INTERRUPT ENTRY 

i <PRIORITY 7) 

J PICK UP ADDRESS OF INTERRUPT CONTROL BLOCK 

i DROP DOWN TO FORK LEVEL 

;Fork processing priority 

At this point we are running at fork level with the address of the 

vector control block in HA. 

Determine if interrupt is directly connected with interrupt 
service routine or it interrupt service routine is to be 
called as a completion routine. 



JSR 


R5, INTEN 


. WORD 





MOV 


VCHOLD, R4 


JSR 


R5, FORK 


. WORD 


FP*RT 



BITS #VF*DIR, VC*rLG<R4.)i Is this 
BNE DIENTR ; Br if yes 



a directly connected interrupt? 



This interrupt is connected to job through a completion routine. 
Set up a completion routine queue entry for the job connected with 
the interrupt. 



CALL 

MOVE 

CLR 

BISB 

ASL 

MOV 

MOV 

MOV 

MOVE 

BNE 

MOVE 

MOVE 

MOVE 

MOVE 

BR 

MOVE 

MOVE 

ADD 

CMP 

BLOS 

MOV 



COMPLETION QUEUE ENTRY 
SET JOB NUMBER 



GETRTQ ;GET A 

VC*J0B(R4), CQ*J0B<R1) ; 

RO 

VC*VEC<R4),R0 iGET VECTOR ADDRESS WITHOUT SIGN EXTENSION 

RO ; CONVERT TO ABS ADDRESS 

RO, CQ$R0(R1> ; PUT IN RO WHEN WE ENTER COMPLETION ROUTINE 

VC*RTN<R4),CQ*RTN<R1) ; SET ADDRESS OF COMPLETION ROUTINE 

@#KPAR5, CQ*PA5<R1); Save current kernel PAR 5 mapping 

VC*PRI<R4),R5 iGET COMPLETION ROUTINE PRIORITY 

3* j Br if priority not zero 

#S«TWFN, C<3*RNS<R1); Set non-real-time execution state 

#CP*STD, CQ*CP<R1 )i Set standard compl rtn class priority 

CQ*J0B<R1 ), RO J Get job index number 

LBSPRI<R0),CQ*PRI<R1); Set execution priority 

4* 

real-time execution state 

real-time compl rtn class priority 

base real-time priority 

priority overflow?" 
if not 



#S*RT, CQ*RNS<R1 ); Set 
#CP*RT, CQ$CP<Rl)i Set 
VPRIHI,R5 ;Add 
R5, #MAXPRI ;Did 
2* i Br 



#MAXPRI, R5 



; Reduce to maximum allowed 



( 
f 
I 
f 
I 
« 
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I 
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i 
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58 000200 110561 OOOOOOS 

59 

60 

61 

62 000204 010104 

63 000206 004767 OOOOOOG 
64 

65 
66 
67 000212 000207 



2«: MOVE R5,CQ*PRI<R1) J Set execution priority 
Queue a completion routine for the job. 



1 
f 



4*: 



MOV 
CALL 



Rl, R4 
QCOMPL 



i GET ADDRESS OF COMPLETION QUEUE ENTRY 
i QUEUE A COMPLETION REQUEST FOR THE JOB 



Finished 
1*: RETURN 



€ 

i 
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000214 010467 0000000 



1 

2 

3 

4 

5 

6 

7 

3 

9 
10 
11 
12 
13 

14 000220 

15 000224 
16 

17 
18 

19 000232 

20 000236 

21 000242 

22 000246 

23 000252 

24 000256 

25 000260 

26 000262 

27 000264 

28 000266 

29 000270 
30 

31 
32 

33 000274 

34 000300 

35 000302 

36 000304 

37 000306 

38 000310 

39 000312 

40 000314 

41 000316 

42 000320 

43 000322 

44 000324 

45 000326 

46 000330 
47 

4S 
49 

50 000332 

51 000340 

52 000342 

53 000346 

54 000350 
55 

56 
57 



Enter an interrupt service routine that is directly connected to 
a real-time interrupt. 

Save pointer to interrupt control block 

(CURVC non-zero is also a flag that ute are executing a directly 

connected interrupt service routine. ) 



DIENTR: MOV 



R4, CURVC 



Save address of interrupt control block 



116401 
016137 



012701 
012702 
012703 
012704 
012700 
011146 
012221 
011346 
012423 
077005 
016704 



105767 
001414 
170202 
010246 
170011 
174046 
174146 
174246 
174346 
172404 
174046 
172405 
174046 
170102 



052737 
106506 
016702 
001001 
011602 



0000000 
0000000 



0000000 
0000000 
0000000 
0000000 
000010 



OOOOOOG 



Get index number of job that is to receive the interrupt and map 
KPARA to job's context b]ori< (note, the FORK saved original KPAR6>. 

MOVE VC*J0B(R4), Rl j Get job index number 

MOV LCXPAR(Rl), ©#KPAR6 ; Map kernel par 6 to job context block 

Save current usei — mode PAR registers and load for new job 



1*: 



OOOOOOG 



OOOOOOG 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
SOB 
MOV 



#UPARO, Rl 
#CUPARO- R2 
#UPDRO, R3 
#CUPDRO> R4 
#8. > RO 
( R 1 ) , - ( SP ) 
(R2)+, (Rl) + 
(R3), -(SP) 
(R4)+, (R3)+ 
RO, 1« 
CURVC, R4 



Point to user PAR registers 

Point to PAR holding cells in context block 

Point to user PDR registers 

Point to PDR holding cells in context block 

There ars 3 PAR and PDR register pairs 

Save current user PAR value 

Set PAR to map to job being called 

Save current user PDR value 

Set PDR to map to job being called 

Loop if more PAR'S to load 

Recover pointer to vector control block 



If Floating Point Unit xb in use, save its status 



i Is FPU in use? 

; Br if not 

; Save FPU status 



TSTB 


FPUUSE 


BE(3 


2* 


STFPS 


R2 


MOV 


R2, -(SP) 


SETD 




STD 


RO, -(SP) 


STD 


R 1 , - ( SP ) 


STD 


R2, -(SP) 


STD 


R3, -(SP) 


LDD 


R4, RO 


STD 


RO, -(SP) 


LDD 


R5, RO 


STD 


RO, -(SP) 


LDFPS 


R2 



Set up user-mode SP 



OOOOOOG OOOOOOG 2$: 
OOOOOOG 



BIS 


#UPMODE, e#psw 


MFPD 


SP 


MOV 


UMSPSV, R2 


BNE 


3* 


MOV 


( SP ) , R2 



Set to 64-bit mode 

ACO 

ACl 

AC 2 

AC 3 

AC4 — >ACO 

(AC4) 

ACS — >ACO 

(ACS) 

Leave FPU status same as on entry 



iMake sure previous-mode = user 

; Save current user-mode stack pointer on stack 

j Should we use SP from context block? 

i B r if yes 

j No, use current user mode SP 



Push address of completion exit EMT on user's stack 



( 
I 

t 
I 

f 

i 

i 

4 

< 

( 
€ 
4 
€ 

f 

i 
i 

i 
i 
i 






JBRT — 


Resident portion of rea i-iACRu 


RTINT - 


— Real- 


•time int 


errupt entry po 


58 


000352 


012746 


OOOOOOG 


59 


000356 


106642 




60 


000360 


010246 




61 
62 
63 


000362 


106606 










64 








65 


000364 


010667 


177410 


66 


000370 


012737 


000410' 000030 


67 


000376 


012746 


OOOOOOC 


68 


000402 


016446 


OOOOOOG 


69 


000406 


000002 
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3*: 



MOV 
MTPD 
MOV 
MTPD 



#CPLEMT, 
-(R2) 
R2, -<SP) 

SP 



Address of exit emt in 
Push onto user's stack 
Set user-mode SP for job 



user's job 

being entered 



Enter user's interrupt service routine 

MOV SP>RISPSV ; Save SP before 

MOV #DIEMT, @#30 ; Send EMT traps 

MOV #UMODE!UPMODE. -<SP> i Set PS for 

MOV VC*RTN(R4), -<SP); Set PC for interrupt routine 

RTI : Enter interrupt service routine 



entry to user's routine 
to DIEMT routine 
interrupt routine 



( 

I 

* 

< 
c 
c 
i 
i 
< 

< 
i 

i 

i 
< 
i 
( 
( 
i 
i 
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. SBTTL DIErtT — 



1 








2 








3 








4 








5 








6 








7 








8 








9 


000410 






10 








U 








12 








13 


000410 


021627 


0000020 


14 


000414 


001522 




15 








16 








17 








18 


000416 


010046 




19 


000420 


010146 




20 


000422 


010246 




21 


000424 


010446 




22 








23 








24 








25 


000426 


016704 


0000000 


26 


000432 


016601 


000010 


27 


000436 


106541 




28 


000440 


021627 


104374 


29 


000444 


001012 




30 


000446 


020027 


001000 


31 


000452 


001103 




32 








33 








34 








35 


000454 


116401 


0000000 


36 


000460 


005261 


OOOOOOG 


37 


000464 


004767 


ooooooe 


38 


000470 


000463 





5a Hage 4 



F:Mf e;<ecuted from interrupt service routine 



An &M"t' was executed from within a directly connected real-time interrupt 
service routine. This can only be one of three things: 

1. A request to return from the interrupt service routine. 

2. A request to schedule a completion routine for the job. 

3. A . RSUM EMT to restart the main-line program routine. 

DIEMT: 

Determine if this is a request to exit from the interrupt service routine 

CMP (SP), #CPLEMT-*-2 ;Is this the EMT to exit from int routine? 
BEQ DIEXIT iBr if yes 

This is not a request to exit from the interrupt service routine. 



MOV 
MOV 
MOV 
MOV 



RO, -(SP) 
R 1 , - ( SP ) 
R2, -<SP) 
R4, -<SP> 



See if it is a . RSUM EMI. 

Get address of vector control block 

Get address past EMT instruction 

Get the EMT instruction 

Could this be a .RSUM EMT? 

Br if not 

Check contents of RO 

Br if not . RSUM 

Perform a . RSUM from within a directly connected interrupt routine 



MOV 


CURVC, R4 


MOV 


8. <SP), Rl 


MFPD 


-(Rl) 


CMP 


<SP), #104374 


BWE 


DICMPL 


CMP 


RO, #1000 


BWE 


DIEXIT 



D I RSUM: MOVB 
INC 
CALL 
BR 



VC*J0B(R4), Rl 
LSPND(Rl) 
FORCEX 
DIEMTX 



j Get current job number 
; Increment . SPND count for job 
i Force execution of the job 
j Go exit from EMT processing 
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000510 004767 OOOOOOG 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 

17 000472 
IS 000476 

19 000500 

20 000502 

21 000506 
22 

23 
24 
25 
26 
27 
28 
29 

30 000514 

31 000522 

32 000524 

33 000530 

34 000532 

35 000534 

36 000536 

37 000544 

38 000550 

39 000556 

40 000560 

41 000566 

42 000572 

43 000576 

44 000600 

45 000604 

46 000610 

47 000612 

48 000616 

49 000620 

50 000624 

51 000626 
52 

53 
54 

55 000632 

56 000634 
57 



Determine if this is 
be scheduled for the 



an EMT to request that a completion routine 
job. 



The form of the EMT is 



EMT 



375 



With RO pointing to the following EMT argument block: 



021627 
001071 
106520 
022627 

001065 



104375 



060021 



. BYTE 
. WORD 
. WORD 
. WORD 
. WORD 

DICMPL: CMP 
BNE 
MFPD 
CMP 
BNE 



21, 140 

completi on_r out ine__ad dress 

completion__routine_priority 

value_to pa&&..in_Rl 





<SP>, #104375 

DIEXIT 

<R0) + 

<SP)+, #60021 

DIEXIT 



; Is this an EMT 375 instruction? 
i Br if not 

; Get 1st word of EMT argument block 
; Function code = 140 and sub-fun = J 
j Br if not 



11? 



This is a request to schedule a completion routine. 
Get a completion request queue element. 



CALL 



GETRTQ 



; Get a completion G element (address in Rl) 



Set up the queue element 



116461 
106520 
012661 
106520 
012602 
001011 
112761 
116102 
116261 
000414 
112761 
066702 
020227 
101402 
012702 
110261 
106520 
012661 
005002 
156402 
006302 
010261 



010104 
004767 



OOOOOOG OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 



?*: 



1^: 
3$: 



MOVE VC*J0B<R4),CQ*J0B<R1) 

MFPD <R0)+ ;Get 

MOV (SP)+, CQ*RTN(Rl)iSet 

MFPD <R0)+ J Get 

MOV (SP)+, R2 

BNE 2* > Br i 

MOVE #S*TWFN, CQ*RNS < R 1 ) ; Se 

MOVB CQ$J0B<R1),R2 ; Get 

MOVB LBSPRI<R2),CQ«PRI(R1) 

BR 3* 

MOVB #S*RT, CQ*RNS<R1)J Set 

ADD VPRIHI,R2 

CMP R2, #MAXPR I 

BLOS 1* 

MOV #MAXPRI,R2 

MOVB R2, CQ*PRI<R1) 

MFPD <R0)+ 

MOV (SP)+, CQ^RKRl) 

CLR R2 

BISB VC*VEC(R4),R2 

ASL R2 

MOV R2, CQ*R0<R1) ; Pa! 



Add 


Did 


Br i 


Set 


Set 


Get 


Set 


Get 


Conv 



i Set job number for completion routine 
address of completion routine 
completion routine address in Q element 

priority value 

f priority value not zero 

t non-real-time execution state 

job number 

i Set execution priority 

real-time execution state 

base priority for real-time jobs 

priority value overflowT' 

f not 

maximum allowed priority 

execution priority 

value to be passed in Rl 

Rl value for completion routine 

vector address without sign extension 
ert to abs address 
to completion routine in RO 



Queue the completion routine for the job 



OOOOOOG 



MOV 
CALL 



Rl, R4 
QCOMPL 



j Get completion Q element pointer to R4 
i Queue the completion routine request 
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; Return to interrupt service routine following EMT 

f 

DIEMTX: TST (SP)+ i Remove EMT instruction from stack 

MOV (SP)+, R4 

MOV (SP)+, Rr^ 

MOV (SP)+, Rl 

MOV <SP)+, RO 

OOOOOOG 000002 QIC #CFLAG, 2<SP) J C-f lag will be reset on return from EMT 

RTI ; Return from . RSUM EMT 



58 






59 






60 


000640 


005726 


61 


UUU64i;:i 


V 1 ■i=:bV^ 


62 


000644 


012602 


63 


000646 


012601 


64 


000650 


012600 


65 


000652 


042766 


66 


000660 


000002 



\ 
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1 
2 
3 

4 000662 016706 \l/\\\l 

5 000666 106606 
6 

7 
8 
9 000670 105767 OOOOOOG 

10 000674 001412 

11 000676 170011 

12 000700 172426 

13 000702 174005 

14 000704 172426 

15 000706 174004 

16 000710 172726 

17 000712 172626 
IS 000714 172526 

19 000716 172426 

20 000720 170126 
21 

22 
23 

24 000722 012701 000020G 

25 000726 012702 000020G 

26 000732 012700 000010 

27 000736 012642 

28 000740 012641 

29 000742 077003 
30 

31 
32 

33 000744 005067 OOOOOOG 

34 000750 012737 OOOOOOG 000030 
35 

36 
37 

38 000756 000207 

39 000001 
Errors detected; 



Exit from directly connected interrupt service routine 



DIEXIT: MOV 
MTPD 



RISPSV, SP 
SP 



i Restore SP to state before entering int rtn 
; Restore user-mode SP 



Restore Floating Point Unit status if it is in use 



Is FPU in use? 

Br if not 

Set 64-bit mode 

(ACS) 

AGO — >AC5 

<AC4) 

ACO — >AC4 

ACS 

AC 2 

ACl 

ACO 

FPU status register 



Restore user-mode memory mapping 



TSTB 


FPUUSE 


BEQ 


1* 


SETD 




LDD 


< SP ) +.. RQ 


SID 


RO, R5 


LDD 


<SP)+, RO 


STD 


RO, R4 


LDD 


(SP)+, R3 


LDD 


<SP)+, R2 


LDD 


(SP)+, Rl 


LDD 


(SP)+, RO 


LDFPS 


<SP) + 



\%: 



2$: 



MOV 
MOV 
MOV 
MOV 
MOV 
SOB 



#UPAR0+16. , Rl 
#UPDR0+16. . R2 
#8. , RO 
<SP)+, -<H2) 
(SP)+, -<R1) 
RO, 2* 



iPoint past last PAR register 

; Point past last PDR register 

; Load 8 PAR/PDR register pairs 

; Restore PDR register 

j Restore PAR register 

i Loop if more to restore 



Say uje aT& exiting from interrupt service routine 



CLR 
MOV 



CURVC 
#EMTENT, ©#30 



; Say not in interrupt service routine 
; Restore EMT trap vector 



Return to FORK mhich will return from interrupt 

RETURN i Return to FORK 

. END 



#*« Assembler statistics 



Work file reads 
Work file writes 
Size of work file 
Size of core pool 
Operating system 
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Pag 


PS) 






17920 


Word 


s 




< 70 


Pay 


es 


) 


RT 


•3 1 

















Elapsed time; 00; 00: 0&. 23 

DK: TSRT, LP: TSRT=DK: TSRT. MAC/C/N: SYM 



TSRT — 


Resident 


portion of 


rea MACRO 


V05. 04 


Cross r 


ef erence 


table <CREF 


V05. 04 ) 




CFLAG 


1-27 


5-hb 






CP*RT 


1-29 


2-t73 






CP*STD 


1-29 


2-48 






CPLEMT 


1-26 


3-SB 


4-13 




CQ*CP 


1-29 


2~4B^* 


2™53«- 




CQ*JOB 


1-23 


2-38t> 


2-49 


5-30* 


C0*PA5 


1-24 


2-44 iJ 






CQ$PRI 


1-24 


2-50» 


2-58* 


5-38* 


CQ*RO 


1-23 


2-421^ 


5-51* 




CQ*R1 


1-27 


5-47-K- 






CQ*RNS 


1-24 


2-47te 


2-52* 


5-36* 


CQ*RTN 


1-23 


2-43«- 


5-32* 




CUPARO 


1-25 


3-20 






CUPDRO 


1-25 


3-22 






CURVC 


1-25 


3-9 K- 


3--29 


4-25 


DICMPL 


4-29 


5~.)7# 






DIEMT 


3-66 


4-9# 






DIEMTX 


4-38 


5-60# 






DIENTR 


2-31 


3-9# 






DIEXIT 


4-14 


4-31 


5-18 


5-21 


DIRSUM 


4~35# 








EMTENT 


1-27 


6-34 






FORCEX 


1-27 


4-37 






FORK 


1-22 


2-20 






FP*RT 


1-28 


2-21 






FPUUSE 


1-26 


3-33 


6-9 




GETRTQ 


1-22 


2-37 


5-26 




INTEN 


1-22 


2-17 






KPAR5 


1-20 


2-44 






KPAR6 


1-25 


3-1 5«- 






LBSPRI 


1-28 


2-50 


5-38 




LCXPAR 


1-25 


3-15 






LSPND 


1-27 


4-36t^ 






MAP PAR 


1-2S 








MAXPRI 


1-27 


2-55 


2-57 


5-42 


PSW 


1-26 


3-501^ 






QCOMPL 


1-24 


2-63 


5-56 




RISPSV 


1~33# 


3-6 5«- 


6-4 




RTINT 


1-18 


2-1 1# 






S*RT 


1-27 


2-52 


5-40 




SfTWFN 


1-28 


2-47 


5-36 




TSRT 


1~14# 








UMODE 


1-26 


3-67 






UMSPSV 


1-26 


3-52 






UPARO 


1-25 


3-19 


6-24 




UPDRO 


1-25 


3-21 


6-25 




UP MODE 


1-26 


1-26 


3-50 


3-67 


VC*FLG 


1-22 


2-30 






VC*JOB 


1-22 


2-38 


3-14 


4-35 


VC*PRI 


1-24 


2-45 






VC$RTN 


1-23 


2-43 


3-68 




VC*VEC 


1-23 


2-40 


5-49 




VCHOLD 


l-34# 


2-12* 


2-19 




VF*DIR 


1-22 


2-30 






VPRIHI 


1-27 


2-54 


5-41 
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